home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 001_100 / DISK0073 / DISK0073.ZIP / TEMPCONV.BAS < prev    next >
BASIC Source File  |  1982-05-28  |  2KB  |  78 lines

  1. 100 CLS
  2. 110 A$=STRING$(80,205)
  3. 120 PRINT A$
  4. 130 PRINT TAB(29)"TEMPERATURE CONVERSION"
  5. 140 COLOR 23,0,0
  6. 150 PRINT :PRINT :PRINT TAB(39)"IPCO"
  7. 160 COLOR 7,0,0
  8. 170 PRINT :PRINT :PRINT TAB(25)"PERSONAL COMPUTER OWNERS GROUP"
  9. 180 PRINT :PRINT :PRINT TAB(19)"p.o. box 10426, pittsburgh, pennsylvania 15234"
  10. 190 PRINT A$
  11. 200 PRINT :PRINT :PRINT :PRINT :PRINT
  12. 210 PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  13. 220 A$=INKEY$:IF A$="" THEN 220
  14. 230 CLS
  15. 240 REM JANUARY 2, 1982.
  16. 250 CLS:WIDTH 80
  17. 260 KEY OFF
  18. 270 PRINT "****************************"
  19. 280 PRINT "***TEMPERATURE CONVERSION***"
  20. 290 PRINT "****************************":PRINT
  21. 300 PRINT "WHAT IS THE TEMPERATURE ":BEEP
  22. 310 PRINT "YOU WISH TO CONVERT";
  23. 320 INPUT T
  24. 330 PRINT "IN WHAT SCALE WAS THAT RECORDED?":BEEP
  25. 340 PRINT "ENTER:"
  26. 350 PRINT "1 FOR FARENHEIT"
  27. 360 PRINT "2 FOR CELSIUS"
  28. 370 PRINT "3 FOR REAUMUR"
  29. 380 PRINT "4 FOR KELVIN"
  30. 390 PRINT "5 FOR RANKINE"
  31. 400 INPUT S
  32. 410 PRINT
  33. 420 S=INT(S)
  34. 430 IF S<1 THEN 330
  35. 440 IF S>5 THEN 330
  36. 450 ON S GOTO 460,500,540,580,620
  37. 460 IF T<-459.58 THEN 750
  38. 470 T1=T
  39. 480 PRINT T;" DEGREES FAHRENHEIT = ":PRINT
  40. 490 GOTO 670
  41. 500 IF T<-273.1 THEN 750
  42. 510 T1=32+T*1.8
  43. 520 PRINT T;" DEGREES CELSIUS = ":PRINT
  44. 530 GOTO 650
  45. 540 IF T<-218.48 THEN 750
  46. 550 T1=32+T*2.25
  47. 560 PRINT T;" DEGREES REAUMUR = ":PRINT
  48. 570 GOTO 650
  49. 580 IF T<0 THEN 750
  50. 590 T1=32+1.8*(T-273.1)
  51. 600 PRINT T," DEGREES KELVIN = ":PRINT
  52. 610 GOTO 650
  53. 620 IF T<0 THEN 750
  54. 630 T1=T-459.58
  55. 640 PRINT T;" DEGREES RANKINE = ":PRINT
  56. 650 PRINT T1," DEGREES FAHRENHEIT"
  57. 660 IF S=2 THEN 690
  58. 670 PRINT 5*(T1-32)/9," DEGREES CELSIUS"
  59. 680 IF S=3 THEN 710
  60. 690 PRINT 4*(T1-32)/9," DEGREES REAUMUR"
  61. 700 IF S=4 THEN 730
  62. 710 PRINT 5*(T1-32)/9+273.1," DEGREES KELVIN"
  63. 720 IF S=5 THEN 780
  64. 730 PRINT T1+459.58," DEGREES RANKINE"
  65. 740 GOTO 780
  66. 750 PRINT "TEMPERATURE YOU ENTERED DOES NOT":BEEP
  67. 760 PRINT "EXIST!  PLEASE ENTER A NEW ONE."
  68. 770 GOTO 300
  69. 780 PRINT :BEEP :PRINT "ANOTHER CONVERSION (Y/N)";:INPUT A$ :PRINT
  70. 790 IF A$="Y" THEN 300
  71. 800 IF A$="y" THEN 300
  72. 810 IF A$="N" THEN 840
  73. 820 IF A$="n" THEN 840
  74. 830 GOTO 780
  75. 840 CLS: END
  76. T
  77. 790 IF A$="Y" THEN 300
  78. 800 IF A$="y" THE